home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nos107c / road1.plp < prev    next >
Text File  |  1993-11-30  |  14KB  |  440 lines
  1. /*    ＲＯＡＤ１の電話番号一覧選択    */
  2. %setTEL    {
  3.     SNDMSG({nyuryo_f.snd});
  4.     footnote({ROAD1 }|BPS|{BPSｱｸｾｽ･ﾎﾟｲﾝﾄの電話番号を直接入力処理中,,,♪});
  5.     %a @input({ROAD1の電話番号を入力してネ☆（入力後は｢ﾘﾀｰﾝｷｰ↓｣）},,
  6.             @head(ROAD1,{/}));
  7.     case    (a<>{},    {Yes},{ROAD1:=@getchar(a,1,80)|{/}|BPS;},
  8.             {No},{setTEL});
  9.     };
  10.  
  11. %HOKKAI1{
  12.     SNDMSG({erande_f.snd});
  13.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  14.         ,,
  15.         { 札  幌 },{ROAD1:={011-251-8050/1200}},
  16.         { 函  館 },{ROAD1:={0138-54-7061/1200}},
  17.         { 室  蘭 },{ROAD1:={0143-43-1631/1200}},
  18.         { 釧  路 },{ROAD1:={0154-22-6177/1200}},
  19.         { 帯  広 },{ROAD1:={0155-25-7311/1200}},
  20.         { 北  見 },{ROAD1:={0157-24-4282/1200}},
  21.         { 旭  川 },{ROAD1:={0166-25-7306/1200}},
  22.         {直接入力},{setTEL}
  23.         );
  24.     };
  25.  
  26. %HOKKAI2{
  27.     SNDMSG({erande_f.snd});
  28.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  29.         ,,
  30.         { 札  幌 },{ROAD1:={011-232-2979/2400}},
  31.         { 函  館 },{ROAD1:={0138-51-7964/2400}},
  32.         { 釧  路 },{ROAD1:={0154-22-9459/2400}},
  33.         { 帯  広 },{ROAD1:={0155-25-7181/2400}},
  34.         { 北  見 },{ROAD1:={0157-23-8051/2400}},
  35.         { 旭  川 },{ROAD1:={0166-26-9630/2400}},
  36.         {直接入力},{setTEL}
  37.         );
  38.     };
  39.  
  40. %TOHOKU1{
  41.     SNDMSG({erande_f.snd});
  42.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  43.         ,,
  44.         { 弘  前 },{ROAD1:={0172-37-4511/1200}},
  45.         { 青  森 },{ROAD1:={0177-73-5810/1200}},
  46.         { 八  戸 },{ROAD1:={0178-24-4065/1200}},
  47.         { 秋  田 },{ROAD1:={0188-31-4161/1200}},
  48.         { 盛  岡 },{ROAD1:={0196-51-4222/1200}},
  49.         { 北  上 },{ROAD1:={0197-63-7301/1200}},
  50.         { 仙  台 },{ROAD1:={022-221-5618/1200}},
  51.         { 酒  田 },{ROAD1:={0234-24-9571/1200}},
  52.         { 山  形 },{ROAD1:={0236-31-2448/1200}},
  53.         {会津若松},{ROAD1:={0242-24-3509/1200}},
  54.         { 福  島 },{ROAD1:={0245-22-5951/1200}},
  55.         { いわき },{ROAD1:={0246-23-4576/1200}},
  56.         { 郡  山 },{ROAD1:={0249-25-0902/1200}},
  57.         {直接入力},{setTEL}
  58.         );
  59.     };
  60.  
  61. %TOHOKU2{
  62.     SNDMSG({erande_f.snd});
  63.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  64.         ,,
  65.         { 青  森 },{ROAD1:={0177-73-7707/2400}},
  66.         { 八  戸 },{ROAD1:={0178-45-4971/2400}},
  67.         { 秋  田 },{ROAD1:={0188-31-4120/2400}},
  68.         { 盛  岡 },{ROAD1:={0196-51-1101/2400}},
  69.         { 仙  台 },{ROAD1:={022-266-7814/2400}},
  70.         { 酒  田 },{ROAD1:={0234-26-7035/2400}},
  71.         { 山  形 },{ROAD1:={0236-32-4457/2400}},
  72.         {会津若松},{ROAD1:={0242-24-9202/2400}},
  73.         { 福  島 },{ROAD1:={0245-23-2971/2400}},
  74.         { いわき },{ROAD1:={0246-22-9581/2400}},
  75.         { 郡  山 },{ROAD1:={0249-25-9384/2400}},
  76.         {直接入力},{setTEL}
  77.         );
  78.     };
  79.  
  80. %NKANTO1{
  81.     SNDMSG({erande_f.snd});
  82.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  83.         ,,
  84.         { 前  橋 },{ROAD1:={0272-52-9753/1200}},
  85.         { 高  崎 },{ROAD1:={0273-27-9174/1200}},
  86.         { 館  林 },{ROAD1:={0276-75-4825/1200}},
  87.         { 小  山 },{ROAD1:={0285-23-1130/1200}},
  88.         { 宇都宮 },{ROAD1:={0286-38-9951/1200}},
  89.         { 水  戸 },{ROAD1:={0292-27-6929/1200}},
  90.         { 日  立 },{ROAD1:={0294-21-8413/1200}},
  91.         { 筑  波 },{ROAD1:={0298-55-4330/1200}},
  92.         { 所  沢 },{ROAD1:={0429-28-0812/1200}},
  93.         { 浦  和 },{ROAD1:={048-825-7942/1200}},
  94.         { 熊  谷 },{ROAD1:={0485-24-7362/1200}},
  95.         { 越  谷 },{ROAD1:={0489-62-2680/1200}},
  96.         { 川  越 },{ROAD1:={0492-41-5381/1200}},
  97.         { 本  庄 },{ROAD1:={0495-24-2175/1200}},
  98.         {直接入力},{setTEL}
  99.         );
  100.     };
  101.  
  102. %NKANTO2{
  103.     SNDMSG({erande_f.snd});
  104.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  105.         ,,
  106.         { 前  橋 },{ROAD1:={0272-54-0900/2400}},
  107.         { 高  崎 },{ROAD1:={0273-27-8335/2400}},
  108.         { 館  林 },{ROAD1:={0276-75-0553/2400}},
  109.         { 小  山 },{ROAD1:={0285-24-5601/2400}},
  110.         { 宇都宮 },{ROAD1:={0286-38-9909/2400}},
  111.         { 水  戸 },{ROAD1:={0292-21-6901/2400}},
  112.         { 筑  波 },{ROAD1:={0298-55-2291/2400}},
  113.         { 所  沢 },{ROAD1:={0429-28-8218/2400}},
  114.         { 浦  和 },{ROAD1:={048-825-5700/2400}},
  115.         { 熊  谷 },{ROAD1:={0485-24-1831/2400}},
  116.         { 越  谷 },{ROAD1:={0489-66-8001/2400}},
  117.         { 川  越 },{ROAD1:={0492-41-7051/2400}},
  118.         {直接入力},{setTEL}
  119.         );
  120.     };
  121.  
  122. %SKANTO1{
  123.     SNDMSG({erande_f.snd});
  124.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  125.         ,,
  126.         { 東  京 },{ROAD1:={03-3739-9241/1200}},
  127.         { 稲  城 },{ROAD1:={0423-78-6273/1200}},
  128.         { 調  布 },{ROAD1:={0424-81-0556/1200}},
  129.         { 立  川 },{ROAD1:={0425-24-4212/1200}},
  130.         { 町  田 },{ROAD1:={0427-99-2375/1200}},
  131.         { 千  葉 },{ROAD1:={043-246-8131/1200}},
  132.         { 君  津 },{ROAD1:={0439-52-8290/1200}},
  133.         { 川  崎 },{ROAD1:={044-755-4911/1200}},
  134.         { 横  浜 },{ROAD1:={045-316-4201/1200}},
  135.         { 厚  木 },{ROAD1:={0462-29-6017/1200}},
  136.         { 平  塚 },{ROAD1:={0463-21-5841/1200}},
  137.         { 小田原 },{ROAD1:={0465-23-1562/1200}},
  138.         { 藤  沢 },{ROAD1:={0466-22-9882/1200}},
  139.         { 横須賀 },{ROAD1:={0468-27-0412/1200}},
  140.         {   柏   },{ROAD1:={0471-46-3153/1200}},
  141.         { 松  戸 },{ROAD1:={0473-66-2621/1200}},
  142.         { 船  橋 },{ROAD1:={0474-37-5241/1200}},
  143.         {直接入力},{setTEL}
  144.         );
  145.     };
  146.  
  147. %SKANTO2{
  148.     SNDMSG({erande_f.snd});
  149.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  150.         ,,
  151.         { 東  京 },{ROAD1:={03-3739-9120/2400}},
  152.         { 稲  城 },{ROAD1:={0423-78-6514/2400}},
  153.         { 調  布 },{ROAD1:={0424-89-3450/2400}},
  154.         { 立  川 },{ROAD1:={0425-22-0178/2400}},
  155.         { 町  田 },{ROAD1:={0427-99-2148/2400}},
  156.         { 千  葉 },{ROAD1:={043-248-9691/2400}},
  157.         { 川  崎 },{ROAD1:={044-752-4421/2400}},
  158.         { 横  浜 },{ROAD1:={045-323-2852/2400}},
  159.         { 厚  木 },{ROAD1:={0462-29-5116/2400}},
  160.         { 平  塚 },{ROAD1:={0463-21-5846/2400}},
  161.         { 小田原 },{ROAD1:={0465-24-1602/2400}},
  162.         { 藤  沢 },{ROAD1:={0466-22-1037/2400}},
  163.         { 横須賀 },{ROAD1:={0468-24-8078/2400}},
  164.         {   柏   },{ROAD1:={0471-46-4175/2400}},
  165.         { 松  戸 },{ROAD1:={0473-66-7641/2400}},
  166.         { 船  橋 },{ROAD1:={0474-37-5392/2400}},
  167.         {直接入力},{setTEL}
  168.         );
  169.     };
  170.  
  171. %HOKURIK1{
  172.     SNDMSG({erande_f.snd});
  173.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  174.         ,,
  175.         { 新  潟 },{ROAD1:={025-246-3613/1200}},
  176.         { 上  越 },{ROAD1:={0255-26-3680/1200}},
  177.         { 長  岡 },{ROAD1:={0258-32-2521/1200}},
  178.         { 長  野 },{ROAD1:={0262-26-9852/1200}},
  179.         { 松  本 },{ROAD1:={0263-32-8903/1200}},
  180.         { 諏  訪 },{ROAD1:={0266-52-8377/1200}},
  181.         { 佐  久 },{ROAD1:={0267-63-3629/1200}},
  182.         { 金  沢 },{ROAD1:={0762-64-1390/1200}},
  183.         { 富  山 },{ROAD1:={0764-42-6437/1200}},
  184.         { 福  井 },{ROAD1:={0776-24-8420/1200}},
  185.         {直接入力},{setTEL}
  186.         );
  187.     };
  188.  
  189. %HOKURIK2{
  190.     SNDMSG({erande_f.snd});
  191.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  192.         ,,
  193.         { 新  潟 },{ROAD1:={025-244-4125/2400}},
  194.         { 長  野 },{ROAD1:={0262-26-1521/2400}},
  195.         { 松  本 },{ROAD1:={0263-32-9921/2400}},
  196.         { 金  沢 },{ROAD1:={0762-63-7131/2400}},
  197.         { 富  山 },{ROAD1:={0764-42-7922/2400}},
  198.         { 福  井 },{ROAD1:={0776-24-9986/2400}},
  199.         {直接入力},{setTEL}
  200.         );
  201.     };
  202.  
  203. %TYUBU1{
  204.     SNDMSG({erande_f.snd});
  205.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  206.         ,,
  207.         { 名古屋 },{ROAD1:={052-231-2579/1200}},
  208.         { 浜  松 },{ROAD1:={053-456-8845/1200}},
  209.         { 豊  橋 },{ROAD1:={0532-53-7159/1200}},
  210.         { 静  岡 },{ROAD1:={054-252-2494/1200}},
  211.         { 甲  府 },{ROAD1:={0552-33-9161/1200}},
  212.         { 沼  津 },{ROAD1:={0559-23-5038/1200}},
  213.         { 岡  崎 },{ROAD1:={0564-26-0964/1200}},
  214.         { 豊  田 },{ROAD1:={0565-27-9688/1200}},
  215.         { 刈  谷 },{ROAD1:={0566-25-2139/1200}},
  216.         { 春日井 },{ROAD1:={0568-51-3542/1200}},
  217.         { 高  山 },{ROAD1:={0577-32-8607/1200}},
  218.         { 岐  阜 },{ROAD1:={0582-53-9455/1200}},
  219.         { 大  垣 },{ROAD1:={0584-81-4491/1200}},
  220.         { 一  宮 },{ROAD1:={0586-46-0704/1200}},
  221.         {   津   },{ROAD1:={0592-23-1418/1200}},
  222.         { 四日市 },{ROAD1:={0593-53-8249/1200}},
  223.         { 伊  勢 },{ROAD1:={0596-27-5547/1200}},
  224.         {直接入力},{setTEL}
  225.         );
  226.     };
  227.  
  228. %TYUBU2{
  229.     SNDMSG({erande_f.snd});
  230.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  231.         ,,
  232.         { 名古屋 },{ROAD1:={052-204-2261/2400}},
  233.         { 浜  松 },{ROAD1:={053-456-9812/2400}},
  234.         { 豊  橋 },{ROAD1:={0532-56-0712/2400}},
  235.         { 静  岡 },{ROAD1:={054-273-1704/2400}},
  236.         { 甲  府 },{ROAD1:={0552-37-9119/2400}},
  237.         { 沼  津 },{ROAD1:={0559-24-6646/2400}},
  238.         { 岡  崎 },{ROAD1:={0564-23-8848/2400}},
  239.         { 豊  田 },{ROAD1:={0565-26-4360/2400}},
  240.         { 刈  谷 },{ROAD1:={0566-25-7008/2400}},
  241.         { 春日井 },{ROAD1:={0568-51-3601/2400}},
  242.         { 岐  阜 },{ROAD1:={0582-53-9691/2400}},
  243.         { 大  垣 },{ROAD1:={0584-82-0445/2400}},
  244.         { 一  宮 },{ROAD1:={0586-46-2115/2400}},
  245.         {   津   },{ROAD1:={0592-23-1415/2400}},
  246.         { 四日市 },{ROAD1:={0593-53-1582/2400}},
  247.         {直接入力},{setTEL}
  248.         );
  249.     };
  250.  
  251. %KINKI1{
  252.     SNDMSG({erande_f.snd});
  253.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  254.         ,,
  255.         { 大  阪 },{ROAD1:={06-947-5460/1200}},
  256.         { 枚  方 },{ROAD1:={0720-46-2390/1200}},
  257.         {   堺   },{ROAD1:={0722-27-5052/1200}},
  258.         { 茨  木 },{ROAD1:={0726-24-6544/1200}},
  259.         { 池  田 },{ROAD1:={0727-53-8834/1200}},
  260.         { 和歌山 },{ROAD1:={0734-74-8155/1200}},
  261.         { 奈  良 },{ROAD1:={0742-34-3639/1200}},
  262.         { 彦  根 },{ROAD1:={0749-24-7298/1200}},
  263.         { 京  都 },{ROAD1:={075-255-6069/1200}},
  264.         { 福知山 },{ROAD1:={0773-24-1507/1200}},
  265.         { 大  津 },{ROAD1:={0775-23-5673/1200}},
  266.         { 神  戸 },{ROAD1:={078-392-7398/1200}},
  267.         { 姫  路 },{ROAD1:={0792-88-7931/1200}},
  268.         { 加古川 },{ROAD1:={0794-35-7229/1200}},
  269.         { 西  宮 },{ROAD1:={0798-66-4435/1200}},
  270.         {直接入力},{setTEL}
  271.         );
  272.     };
  273.  
  274. %KINKI2{
  275.     SNDMSG({erande_f.snd});
  276.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  277.         ,,
  278.         { 大  阪 },{ROAD1:={06-949-2572/2400}},
  279.         {   堺   },{ROAD1:={0722-22-8540/2400}},
  280.         { 和歌山 },{ROAD1:={0734-74-8163/2400}},
  281.         { 奈  良 },{ROAD1:={0742-36-0857/2400}},
  282.         { 京  都 },{ROAD1:={075-255-0524/2400}},
  283.         { 大  津 },{ROAD1:={0775-23-5416/2400}},
  284.         { 神  戸 },{ROAD1:={078-332-2127/2400}},
  285.         { 姫  路 },{ROAD1:={0792-88-9744/2400}},
  286.         { 加古川 },{ROAD1:={0794-35-7944/2400}},
  287.         {直接入力},{setTEL}
  288.         );
  289.     };
  290.  
  291. %CHUGOKU1{
  292.     SNDMSG({erande_f.snd});
  293.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  294.         ,,
  295.         { 広  島 },{ROAD1:={082-223-7643/1200}},
  296.         { 下  関 },{ROAD1:={0832-32-5101/1200}},
  297.         { 徳  山 },{ROAD1:={0834-31-5321/1200}},
  298.         { 宇  部 },{ROAD1:={0836-22-4845/1200}},
  299.         { 山  口 },{ROAD1:={0839-21-2765/1200}},
  300.         { 福  山 },{ROAD1:={0849-31-7240/1200}},
  301.         { 松  江 },{ROAD1:={0852-26-9312/1200}},
  302.         { 鳥  取 },{ROAD1:={0857-24-5146/1200}},
  303.         { 米  子 },{ROAD1:={0859-33-0061/1200}},
  304.         { 岡  山 },{ROAD1:={086-226-5544/1200}},
  305.         {直接入力},{setTEL}
  306.         );
  307.     };
  308.  
  309. %CHUGOKU2{
  310.     SNDMSG({erande_f.snd});
  311.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  312.         ,,
  313.         { 広  島 },{ROAD1:={082-223-5749/2400}},
  314.         { 徳  山 },{ROAD1:={0834-32-5461/2400}},
  315.         { 宇  部 },{ROAD1:={0836-22-6613/2400}},
  316.         { 山  口 },{ROAD1:={0839-24-9485/2400}},
  317.         { 松  江 },{ROAD1:={0852-26-5771/2400}},
  318.         { 鳥  取 },{ROAD1:={0857-22-5121/2400}},
  319.         { 岡  山 },{ROAD1:={086-226-6241/2400}},
  320.         {直接入力},{setTEL}
  321.         );
  322.     };
  323.  
  324. %SHIKOKU1{
  325.     SNDMSG({erande_f.snd});
  326.     select({ROAD1の電話番号を選択して☆ネ（現在は『}|ROAD1|{』）},
  327.         ,,
  328.         { 高  松 },{ROAD1:={0878-51-0462/1200}},
  329.         { 徳  島 },{ROAD1:={0886-55-2840/1200}},
  330.         { 高  知 },{ROAD1:={0888-23-5477/1200}},
  331.         { 松  山 },{ROAD1:={0899-33-9914/1200}},
  332.         {直接入力},{setTEL}
  333.         );
  334.     };
  335.  
  336. %SHIKOKU2{
  337.     SNDMSG({erande_f.snd});
  338.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  339.         ,,
  340.         { 高  松 },{ROAD1:={0878-23-4667/2400}},
  341.         { 徳  島 },{ROAD1:={0886-55-9450/2400}},
  342.         { 高  知 },{ROAD1:={0888-24-6403/2400}},
  343.         { 松  山 },{ROAD1:={0899-32-9640/2400}},
  344.         {直接入力},{setTEL}
  345.         );
  346.     };
  347.  
  348. %KYUSYU1{
  349.     SNDMSG({erande_f.snd});
  350.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  351.         ,,
  352.         { 福  岡 },{ROAD1:={092-473-6576/1200}},
  353.         { 北九州 },{ROAD1:={093-511-2421/1200}},
  354.         { 久留米 },{ROAD1:={0942-37-4035/1200}},
  355.         { 大牟田 },{ROAD1:={0944-52-7870/1200}},
  356.         { 佐  賀 },{ROAD1:={0952-25-3750/1200}},
  357.         { 佐世保 },{ROAD1:={0956-46-1981/1200}},
  358.         { 長  崎 },{ROAD1:={0958-24-4967/1200}},
  359.         { 熊  本 },{ROAD1:={096-324-6502/1200}},
  360.         { 大  分 },{ROAD1:={0975-34-3724/1200}},
  361.         { 宮  崎 },{ROAD1:={0985-29-4430/1200}},
  362.         { 鹿児島 },{ROAD1:={0992-24-4830/1200}},
  363.         {直接入力},{setTEL}
  364.         );
  365.     };
  366.  
  367. %KYUSYU2{
  368.     SNDMSG({erande_f.snd});
  369.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  370.         ,,
  371.         { 福  岡 },{ROAD1:={092-474-3708/2400}},
  372.         { 北九州 },{ROAD1:={093-531-7320/2400}},
  373.         { 久留米 },{ROAD1:={0942-37-3977/2400}},
  374.         { 佐  賀 },{ROAD1:={0952-25-2110/2400}},
  375.         { 長  崎 },{ROAD1:={0958-24-5750/2400}},
  376.         { 熊  本 },{ROAD1:={096-324-1911/2400}},
  377.         { 大  分 },{ROAD1:={0975-37-4480/2400}},
  378.         { 宮  崎 },{ROAD1:={0985-29-9034/2400}},
  379.         { 鹿児島 },{ROAD1:={0992-24-4848/2400}},
  380.         {直接入力},{setTEL}
  381.         );
  382.     };
  383.  
  384. %OKINAWA1{
  385.     SNDMSG({erande_f.snd});
  386.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  387.         ,,
  388.         { 那  覇 },{ROAD1:={098-863-4779/1200}},
  389.         {直接入力},{setTEL}
  390.         );
  391.     };
  392.  
  393. %OKINAWA2{
  394.     SNDMSG({erande_f.snd});
  395.     select({ROAD1の電話番号を選択してネ☆（現在は『}|ROAD1|{』）},
  396.         ,,
  397.         { 那  覇 },{ROAD1:={098-861-7176/2400}},
  398.         {直接入力},{setTEL}
  399.         );
  400.     };
  401.  
  402. %setNODE1{
  403.     SNDMSG({erande_f.snd});
  404.     footnote({ＲＯＡＤ１アクセス･ポイントの電話番号を設定処理中,,,♪});
  405.     select({    ＲＯＡＤ１アクセス･ポイント地域を選択してネ☆},
  406.         ,,
  407.         { 北海道 },{HOKKAI1},    { 東  北 },{TOHOKU1},
  408.         { 北関東 },{NKANTO1},    { 南関東 },{SKANTO1},
  409.         { 北信越 },{HOKURIK1},    { 中  部 },{TYUBU1},
  410.         { 近  畿 },{KINKI1},    { 中  国 },{CHUGOKU1},
  411.         { 四  国 },{SHIKOKU1},    { 九  州 },{KYUSYU1},
  412.         { 沖  縄 },{OKINAWA1},
  413.         {直接入力},{setTEL}
  414.         );
  415.     };
  416.  
  417. %setNODE2{
  418.     SNDMSG({erande_f.snd});
  419.     footnote({ＲＯＡＤ１アクセスポイントの電話番号を設定処理中,,,♪});
  420.     select({    ＲＯＡＤ１アクセス･ポイント地域を選択してネ☆},
  421.         ,,
  422.         { 北海道 },{HOKKAI2},    { 東  北 },{TOHOKU2},
  423.         { 北関東 },{NKANTO2},    { 南関東 },{SKANTO2},
  424.         { 北信越 },{HOKURIK2},    { 中  部 },{TYUBU2},
  425.         { 近  畿 },{KINKI2},    { 中  国 },{CHUGOKU2},
  426.         { 四  国 },{SHIKOKU2},    { 九  州 },{KYUSYU2},
  427.         { 沖  縄 },{OKINAWA2},
  428.         {直接入力},{setTEL}
  429.         );
  430.     };
  431.  
  432. var BPS[4];
  433. case(ROAD1,{},{ROAD1:={未設定}});
  434. SNDMSG({erande_f.snd});
  435. footnote({ｱｸｾｽ･ﾎﾟｲﾝﾄＲＯＡＤ１の通信速度の設定処理中,,,♪});
  436. select({    モデムの通信速度を指定してネ☆(^_^)/♪},
  437.     ,,
  438.     { １２００ＢＰＳ },{BPS:={1200};setNODE1;},
  439.     { ２４００ＢＰＳ },{BPS:={2400};setNODE2;});
  440.